home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Dylan Related / Thomas / MacGambit⁄Thomas / MacGambit⁄Thomas Sources / Thomas 1.1 sources / dylan-object-help.dyl < prev    next >
Encoding:
Text File  |  1995-03-15  |  256 b   |  8 lines  |  [TEXT/gamI]
  1. (define-method slot-descriptor-slot-name (s)
  2.   (apply (scheme-procedure 'vector-ref) (list s 1)))
  3.  
  4. (define-method object-slot-names ((o <object>))
  5.   (bind ((slot-list (slot-descriptors (class-for-copy o))))
  6.     (map slot-descriptor-slot-name slot-list)))
  7.  
  8.